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E TSSF18 = SATS SYSTEM SERVICE TESTS (FAILING S.C.) 
T y v04-000' 


MAAAAARAARAARARASAAAASALALL ELA ALE LESSEE REESE EEE EERE EEE SEES REESE E ESSE aa 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ODOOCOCCOOCOOOOOOOooO 


4 ; 
2 3 
4 * 
° i* * 
;* t 
6 F te ° 
3* * 
0 11 ;* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
8 \¢ 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15 ;* INCLUSION OF THE ABOVE Sgt NOTICE. THIS SOFTWARE OR ANY OTHER * 
0 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY . 
00 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8508 1 7* TRANSFERRED. ® 
3* we 
444 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8508 Y a CORPORATION. * 
° ® 
$900 § 7* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
44 4 ;* . 
000 5 3e * 
4 § FERRARA TERETE TATA E RTARTA AAA AAA AAA AAA AA ATA AAA A eee Kee eee eee eee ee 
0000 8° 
0000 9 ;++ 
44 » : FACILITY: SATS SYSTEM SERVICE TESTS 
0000 ¢ i > ABSTRACT: The SATSSF18 module tests the execution of the following 
0000 : VMS system services, invoked in such a way as to expect failing 
0000 4 ; Status codes: 
0000 5; SCREPRC 
0000 6; SSETPRV 
000 73: SUNWIND 
ae 
0000 40 : ENVIRONMENT: User mode image; needs CMKRNL privilege, 
44 a} 3 dynamically acquires other privileges, as needed. 
38 “8 : AUTHOR: Larry D. Jones, CREATION DATE: NOVEMBER, 1979 
$60 45 : MODIFIED BY: 
00 46 : 
oS 47 ; v03-005 LDJ0005 rry D. Jones 23-Jul-1984 
0 rt 3 Modified for addition of one rew status flag. 
6 0: v03-004 LDJ0004 ba rry D. Jones 19-Apr-1984 
0 1 ; Modified for addition of one +e status flag. Fixed 
§ 3 duplicate process name failure. 
4: v03-003 LDJ0003 ry D. Jones 25-Mar-1983 
Modified for add tion of three new status flags. 
5 : v03-002 L0J0002 Larry D. Jones, 07-Aug-1981 
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UETP.SRCJSATSSF18.MAR; 1 
Modified for addition of disable WS adjust status flag. 
v03-001 Luge Larry D. Jones 17-Sep-1980 


odified to contora. to new build command procedures. 


SATSSF18 = SATS $ 
vO0=000 DECLARAT 


gnu 
: 
0 


1 VAX/VMS Macro yt -00 Pa | 
:29 YOETP src SATSSF18.MAR;1 - dy 


> — 
roe 
a2 


-SBTTL DECLARATIONS 
MACRO LIBRARY CALLS 


at yd ep ; condi ston hand a frame offsets 
GETJPI definitio 
process quota Uist _ eres 
$ F rivilege definiti 
SUE TPDEF ; bes -sessage def nitions 
D k frame offset definitions 
SSHR_MESSAGES UETP,116,<<TEXT, info>>": ; UETPS$_TEXT definition 


$ 

: 

i 

75 

1 SSSDEF 3 SS definitions 
48 i 

9 

5 

9 


SSTSDEF ; STS defin tions 


warning severity value for msgs 
aueneey 


494564 
000000 
0000004 0 
00000001 


 wVHeMYEac 
DBmnzZzwc>yY 
<< "DOD 
moo 
a> @ 
nununan 
—FWN-O 


: 
| 
tntornction cr “ owe | 
page 0 address for SETEXV 


SATSSF18 = SAT 
v0u=000 OWN S 


38 31 46 53 53 54 41 53 . 


46 53 53 54 41 53 sectenceteh Sinton * ig i 
6E 69 67 65 62 9" 

6C 75 66 73 73 65 63 63 75 73 +% 
64 65 6C 69 61 66 9" 

43 52 50 45 52 43 00° 

06 

56 52 50 54 45 53 00° 

06 


44 4E 49 57 4E 55 00° 
06 


00000000 '00000000' 

00000000' 

a 38 1 13 65 $5 sponse ace gone 
of 65 $? $ 20 ig 41 $} 3 $3 gp 61 
2E 64 65 6C 69 61 66 20 4C 55 21 20 
Ue $5 6528 8 35 goon goon 
at 21 $0 & 65 fe 49 45 63 65 73 2 
74 iH 5 76 78 45 000089'010 ' 
PERE BARE HD is 
G4 63 Fo 8 45 85 65 72 20 Er Se Gi 


73 75 74 61 74 73 000000EC*010E0000° 
000000F A*010E0000° 


43 42 41 tae ht Oe ty , 
4F GE 4D 4C 4B 4A 49 48 4 


FF 
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COOCOCOCOCOCOOCOCOOCOO 
OoOooooooooooo 
DOOD NIA DAME BE AAAI N NII IRD 2 SS SS 


> 


a 


; 


———————— 


m— 


S 
G 


9 .SBTT 
9 PSEC 
j TEST_MOD_NAME : 
TASCIC 
94 TEST_MOD_NAME 
95 TASC 
%6 TEST_MOD_B 
9 TA 
98 TEST_MOD_ 
9 . 
190 TEST_MOD_ 
1 . 
102 CREPRC: 
108 A 
4 SETPRV: 
A 


- LONG 


25 


"LONG 
VHND_SXV41: 
; -ASCID 


fun—oV0o NO WM 
ov TD 

ww 

— 


5 : 
6 -ASCID 


-ASCID 


CREI6: 
-ASCID 


35 QUOTA_ILLEGAL: 
6 BYTE 


oz aA 
Ca 


I 
EM SERVICE TESTS CALLING S. 19° 


OWN STORAGE 


SEP-1984 
SEP=1984 


AX/VMS Macro V04-00 


Page 
UETP. SRCISATSSF18.MAR: 1 9 


1:42:11 
4:22:29 


RODATA,RD ,NOWRT ,NOEXE ,LONG 


/SATSSF18/ 
/SATSSF18/ 
/begin/ 
/successful/ 
/failed/ 
/CREPRC/ 
/SETPRV/ 
/UNWIND/ 


NOACCESS,NOACCESS 
PRTSC_NA 


; needed for SATSMS message 


; module name 


; page address of neaccess psect 


; protection code for no access psect 
; read only access location 


\Test !AC service name !AC step !UL failed.\ 


\Expected !AS = !¥L received 'AS = !XL\ 


\Expected !AS'UB = !XL received !AS'UB = !XL\ 


\status\ 
\\ 


\ABCDEF GHI JKLMNOP\ 


1 


; 0 Length string 
; 16 Length string 


; illegal quota List 


54 55 53 54 41 53 990 


we 


000000 
000000 
000000 
000001 
0000000 
00000000 
eaaaee "1 
00000064 

00 


000000 
000000 
000004 


00004000 
00000004 


52 50 SF 37 31 46 victepericonslindene og * i 
43 4F 


wna 
Oo 
Dw 
Ine 
aw 
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SOOO OCOCOCOCOCOOOCOCCOCSOOOOCOOCOOOCOOOOOOOOOCOOOOO em 
dd a oo dD 


CO NINDS OS OS OS OO OS I BS EB BEE EWI III SS SS 
a kk kk kt a tt ot tt 


40 
41 
2g 
44 
45 
46 
47 
48 
49 
50 
51 
52 : 
S$ STSFLGI: 
54 
55 
56 
57 
58 
59 
60 
61 
$$ 
64 


HWW TD NUN IW DD SOM ON DW NON CO ONIN SO OOF ww 
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7 QUOTA_LIST: 
8 ° pa PQL$_ASTLM ; minimum quota List 
i) -BYTE PQL$_BIOLM 
1 - LONG 
§ ~-BYTE PQL$_BYTLM 

LONG 1024 
4 -BYTE PQL$_CPULM 
5 - LONG 
§ -BYTE PQL$_DIOLM 

- LONG 
§ ~BYTE PQLS_FILLM 

LONG 


“BYTE PQLS_PGFLQUOTA 
“BYTE PQL$_PRCLM 
“BYTE PQL$_TQELM 
POL$_WSDEFAULT 
-BYTE PQL$_WSQUOTA 


- LONG 
-BYTE PQLS$_LISTEND 
STSFLG_ILLEGAL: 
LONG “%*x4000 : illegal STS flag bit 
«LONG ; inhibit process swappin 
NAME_CREPRC: " te. 
eASCID /F17_PROC/ ; legal process name 
GET_LIST: 
- WORD ; JPI List to get current privs 
«WORD 


PI$_CURPRIV 
RIvS 


oc 
o 

oP) 
aad 

ou. & 


-LON 
IMAGE _NAME : 
sASCID /SATSUTO1.EXE/ 


i 
| i 
eee Eee 


SATSSEIS 7 
v04-000 OWN 


00000000 
00000000 
00000000 


00000048 
00748009 


00 

00000000 00000000 
00000000 

00000069 


00000000 
00000050 


000001 2F 
00000000 


00000000 
00000000 00000000 
00000000 
00000000 
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Dw 
aw 
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Oo 

So 
COOoOoQooooo°o°o°o—— 
oooo 
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00000019" 


oOoOooo ODQOOQOOOCOCOCOCOOOSOOOoOOO 


COSGQOOCOCOCCOOCOSoSooO 


SPOON BS Bee 
—§ O09 | 9 OF UIE LOOM OWBDOOOWDLFSOOCOCONN YP~< 


o> 


NNW ONIN 


74 73 69 67 65 72 00000069"9106 9009" 
52 20 72 6 


000000DF * 


DOOCOQOOCOCOOCOOCOOOOOSOOOCOOOCOoOoOSoO: 


OoOoOoooooooeo 


As 4-4 -A-A- 181818) 


0000000F ' 


OOoooooo0ooo 


—* se a es 
Pane 
N 


1 
729 CUETP.SRCJSATSSF18.MAR; 1 


CT 
RD ,WRT ,NOEXE ,LONG 


fa 
Oo 
2 
a 
So 
> 


; PID for this process 


.LONG 0 
CURRENT_TC: 


- LON 0 

-ALIGN LONG 
REG_SAVE_AREA: 

BLK 15 


MOD_MSG_CODE : 
.LONG UETPS_SATSMS 


PID for target process 


ptr to current test case 


register save area 


test module message code for putmsg 


TMN_ADDR: 
-ADDRESS TEST_MOD_NAME 
TMD _ADDR: 
-ADDRESS TEST_MOD_BEGIN 
PRVPRT: 
-BYTE 0 i protection return byte for SETPRT 
PRIVMASK: 
-QUAD 0 3; priv. mask 
CHM_CONT: 
«LONG 0 ; change mode continue address 
RETADR: 
one BLKL 2 ; returned address's from SETPRT 


SCREPRC 0,0,0 CREPRC parameter List 


3 AOD OOOOOOO COOOOO0O0 OOO OW 0009000009 090909 SI NIN NII NSN NIO OO 
DWNOUE WN O OONOUS Wil SOW NOMEN ODOo SOUND 2 DOI OUTS OO DO0 doe 


PRIPIPIPIPIPIPIPIPIPIPIPINIPIPIP IID — 1 a a nt i kk kk tk th ht 


SET: 
on SSETPRY 0,0,0 ; SETPRV parameter List 
ae SUNWIND 0,0 ; UNWIND parameter List 
"  JASCID. -\register R\ 
REGNUM: 
«LONG 0 ; register number 
MSGL: 
-LONG 80 ; buffer desc. 
«ADDRESS BUF 
BUF 
-BLKB 80 
MESSAGEL: 
° 0 3; message desc. 
. ADDRESS BUF 
SERV_NAME : 
ONG 0 3; service name pointer 
PRIVS: 
septa: -QUAD 0 ; privilege storage location 
“ee "LONG 0 ; depth storage location for UNWIND 
-LONG 0 ; scratch storage location for UNWIND 


AX/VMS Macro V04-00 Page (9) 
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v042000 R/wW PSECT g- -SEP-1984 84:33:09 UVETP.SRCJS ATSS SF18.MAR;1 ° (1). 
ae 9 -PSECT SATS §ACC¥19. 1,RD,WRT,NOEXE , PAGE 
000002 EMPTY: : reserve a page of space 
¢ : EERE Re SS NC SORTA I LS APA CLAN NE od ITI ROO SE 
3 ® 
§ 3 e@ THE wot ke 4 aimee tet IN THIS PSECT is a , 
3; * dO RE-ARRANGE THE VARIABL cS. CONSULT SATS a 
8 ; ¢ Fone T TONAL SPECIFICATION FOR A BESCRIPTION OF THE USE * 
i} ; * OF THE EMPTY PSECT (AND ITS COMPANION PSECT, NOACCESS). : 
: 
: LARRRARAASARASASALESESASELERE SESE REE ESESESESE SESE SELES ECCS REE Ea aa 
3; | 
OOOOOTFF $6 4 PRVHND_SXV42 =.,-1 ; prvhnd arg for SETEXV (Last byte in the page) | 
000001F3 0 5 @, 2 13 ; allow room for string descriptor | 
1F $ ; type AAAAA_SSSXS Re here: 
00000006 O1F 40 ; string Length (will cross psect boundary) 
QOO0001FR’ OF 8 DRESS . ; string address 
1FB 9 ; type AAAAA_ sssikt ° eee’ 
OOOOO1FC O1FB 40 ; low-order byte of string length 
gre 41 ; type AAAAA_SSSK go here: 
00000200 O1FC ¢g . i ; string length 
0200 43 ; 
00 44 ; 
a 
Py i 
8200 000 23 -PSECT SATS_ACCVIO_2,RD,WRT,NOEXE ,PAGE 
00000200 000 48 NOACCESS: -BLKB als ; reserve a page of space 
00000000 $44 49 «6, © 9) ; return loc ctr to beginning of psect 
00000000° 000 50 “ADDRESS EMPTY agerese of accessible strin 
00000000" Bobs 2) en -ADDRESS EMP PTY/*K1 ; address of eccesstble string 
Beo8 3g : — NOTE == DO NOT CHANGE LOCATION OR wie yy OF ABOVE MeL soy ike 
00 54; IS PSECT (NOACCESS) MUST APPEAR IN MEMORY iMMEDIATELY 
0008 55 ; wee FOLLOWING THE EMPTY PSECT. PSECT NAMES AND OPTIONS WILL BE 
44 28 ; tee CHOSEN TO FORCE THE DESIRED PSECT ORDERING. 
008 38 ; 
O08 560 : 
0008 361 ; 


Se a SLE EE Aas) Se Opa ape. EN : 
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SY r 
V R/W PSECT SEP=1984 UETP.SRCJSATSSF18.MAR;1 
0000 63 »PSECT SATSSE 1B RD .WRT EXE -LONG 
és re ~SBTTL SATSSF1 
66 3 FUNCTIONAL DESCRIPTION: 
8 : After performing some initial housekeeping, such as 
3 tage haa the module begin message and ager a needed privileges, 
0 0 ; the system services are tested in each of their failure conditions. 
00 71 ; Detected failures are identified and an error message is printed 
$ ie ; on the terminal. Upon completion of the test a success or fail 
$8 or 3 message is printed on the terminal. 
$8 £3 : CALLING SEQUENCE: 
0090 A ; $ RUN SATSSF18 ... (DCL COMMAND) 
0000 79 : INPUT PARAMETERS: 
000 80 ; 
0000 81; none 
0000 S 3 
0000 83 ; IMPLICIT INPUTS: 
0000 84 ; 
0000 85; none 
000u 86 ; 
0000 87 ; OUTPUT PARAMETERS: 
0000 88 ; 
a4 89 ; none 
000 4 3 
4 29 : IMPLICIT OUTPUTS: 
6009 38 ; Messages to SYSSOUTPUT are the only output from SATSSF18. 
44 238 : They are of the form: 
0000 96 : ZUETP=S-SATSMS, TEST MODULE SATSSF18 BEGUN ... (BEGIN MSG) 
444 344 : ZUETP-S-SATSMS, TEST MODULE SATSSF18 SUCCESSFUL ... (END MSG) 
000 98 ; ZUETP=-E-SATSMS, TEST MODULE SATSSF18 FAILED ... (END MSG) 
8000 ap ; ZUETP-I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST MODULE FAILURE) 
9000 o1 > COMPLETION CODES: 
0000 88 : The SATSSF18 routine terminates with a SEXIT to the 
48 be 3 operating system with a status code defined by UETPS_SATSMS. 
08 06 ; SIDE EFFECTS: 
0 08 ;: none 
00 09 ; 
$00 812 
806 313 
000 314 TEST_START SATSSF18 ; let the test begin 


RAE eR a leh SN ARI 85 ee DRIGIS oe oe ce LAME 1, TART ROE BESET Ue — 
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ae 


0000 “ seuray SATSSF18, 0 
0008'CF pe cURL H w*CURRENT_TC 
QOOO'CF ODF 08 PUSHAL W*TPID 
00000000 ' GF 03 FB f CALLS #2,G*SYS$W 
— oe "CF Pe ia pusHA 5 0 ocSY SSHIBER 
00000000 ' GF } FB oie cos Paneth B 
0050'CF potF st oF 028 MOVAL wrest & pute, »W*TMD_ADDR 
0048'CF 03 0 i FO F INsy, a UECESS. O70 W*MOD Pas. CODE 
072B'CF 01 FB 0 f ‘ene CALLS #1,W*REG_SAVE 
bsp 15 SSETPRT_S INADR=W® INADR RETADR=W*RETADR, 
03D 16 PROT=W*PROT, PRVPRT=W* PRVPRT ; set noaccess psect 
056 1 3 ee. for no user access 


B 3 
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v04-000 CREPRC TESTS mitt y ve $8: 229 LUETP SRCTEATSSF1B-MAR: 1 ae 
$e 8 -SBTTL CREPRC TESTS 
5 1; 
8 4 ; SCREPRC tests 
: 4 ; test unaccessable PIDADR = page 0 access 
056 i- 
0137'"CF OO31'CF DE 0056 5 MOVAL W*CREPRC,W*SERV_NAME 3 set service name 
005D $f SCREPRC_S PIDADR = W*PRI D_Sxv40 3; try it 
0081 9 FAIL_CHECK SS$_ACCVIO ; check failure 
2 bc 0D poet PUSHL #SS$_ACCVIO 
0735'CF 1 FB QO CALLS #1,W*REG_CHECK 
oos 33) 5 
+ 3 ; test unaccessable PIDADR = read-only psect 
0088 334 :- 
S088 335 NEXT_TEST 
tat STP1 
0008' CF 4 + 4 t4 sort At »W*CURRENT_TC 
072B'CF 01 008F cAL tS #1,W*REG_SAVE 
0094 336 SCREPRC PIDADR = ‘W*PRVRND. SXV41 3 try it 
00B8 37 FAIL “CHECK” SSSA ACCVIO : check failure 
0c DD 0088 psss ACCVIO 
0735'CF 01 FB OOBA CALLS #1,W*REG_CHECK 
erg 
OQOBF 378 > test umaccessable PIDADR = noaccess protect 
SORE 342 | 
OOBF 325 , NEXT_TEST 
$8 stra 
0008' CF 02 D0 00BF ; MOV. #2, ,W*CURRENT_TC J 
072B'CF 01 00C6 wit #1,W*R AVE MES 
00cs 344 SCREPRC_S PIDADR = +e PRURND _SXV42 ; try it MO 
QOOEF 345 FAIL_CHECK SS$_ACCVIO 3 check failure Mot 
0c DD OOEF PUSHL ~ #SS$_ACCVIO MS\ 
0735'CF 01 FB aOre eae CALLS #1 UTREG. CHECK 
F6 347: NAI 
Oore i 3; test unaccessable IMAGE = page 0 access NO/ 
Bee i 
OF6 334 : NEXT_TEST pal 
OF6 STP3: PQi 
0008' CF +3 ° are eats +f eW*CURRENT_TC oa 
072B'CF gf Fa OFD CALLS ’ »W*REG SAVE PQi 
1 ¢ 333 SCREPRC_S IMAGE = a eee Sxv40 3 try page .0 access PQi 
12 5 FAIL_CHECK SS$_A cyyo ; check failure PQ| 
0c DD 126 PUSHL ~ tt ACCVIO PQi 
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9042000 CREPRC TESTS -SEP-1984 87353254 LUETP SRCISATSSF18 MAR: 1 ’ (2) 
0735'CF 01 FB 128 CALLS #1,W*REG_CHECK 
150-388 i* 
° i 
| . 2$ ; test unaccessable IMAGE = noaccess protection 
12D 38 3° 
1 5 NEXT_TEST 
12D STP4: 
0008' CF 04 4 D MOVL #4 ,,W*CURRENT_TC 
00 DD 0132 PUSHL @# 
072B'CF 01 4 4 CALLS #1,W*REG_SAVE 
139 $09 SCREPRC_S IMAGE = W*PRVHND_SXV42 ; try noaccess prot 
0150 61 FAIL_CHECK SS$_ACCVIO 3; check failure 
la DD 015D PUSHL #SS$ ACCVIO 
0735'CF 01 FB O1SF CALLS #1,W"REG_CHECK 
0164 306 s* 
0164 63 ; 
0164 364 ; test unaccessable INPUT = page 0 access 
0164 365 ; 
0164 366 ;:- 
0164 367 NEXT_TEST 
0164 
0164 STPS: 
0008'CF 05 0164 MOVL #5,W*CURRENT_TC 
00 DD 0169 PUSHL #0 
O72B'CF 01 0168 CALLS #1,W*REG SAVE 
0170 368 SCREPRC_S INPUT = W*PRVHND_SXV40 s try it 
0194 369 FAIL_CHECK SS$_ACCVIO 3; check failure 
oc DD 0194 PUSHL #SS$_ACCVIO 
0735'CF 01 FB 0196 CALLS #1,W*REG_CHECK 
0198 370 ;+ 
0198 71 3 
0198 i 3; test unaccessable INPUT = noaccess protect 
0198 73; 
0198 374 ;- 
0198 375 NEXT_TEST 
0198 
0198 STP6: 
0008'CF 06 HH MOVL #6,W*CURRENT_TC 
00 DD OIA PUSHL 
072B'°CF 01 BIAS CALLS  #1,W*REG_SAVE . 
1A 376 SCREPRC_S INPUT = W*PRVHND_SXV42 3 try it 
1(cB 377 FAIL_CHECK SS$_ACCVIO 
0c DD 1¢B PUSHL #SS$_ACCVIO 
O735'cCF 01 FB O1CD CALLS #1,W*REG_CHECK 
By ee 
1 $0 ; test unaccessable OUTPUT = page 0 access 
1D Hf :- 
1 8 NEXT_TEST 
1D STP7 
0008'cF 07 DO O1D MOVL #7,W*CURRENT_TC 
0 oD 1D PUSHL 
072B'CF 1 FB 109 CALLS #1,W*REG_SAVE 


dD 3 
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1042000 CREPRC TESTS BrEEp=158e busds.29 LURTP SRC SSArsee 18 mars 1 ve 13, Psi 
1 386 SCREPRC_S OUTPUT = W*PRVHND_SXV40 ; try it | 
5 FAIL_CHECK SS$_ yjo. ; check failure 
gc DD PUSHL ~ #S$ VIO 
0735'CF 1 FB 3 j CALLS #1 URES. CHECK 
9 : 
03 ‘ ; test unaccessable OUTPUT = noaccess protect | 
9 90 ;- 
4 91 NEXT_TEST 
44 STP8: 
O008'CF O08 £00 9 MOVL #8 ,W*CURRENT_TC 
BY DD of PUSHL #0 
072B'CF 1 FB 021 CALLS #1,W*REG SAVE 
0215 He SCREPRC_S 0 a th = HA PRURND _SXV42 3; try it 
0239 9 FAIL_C ne a _ACCVIO 3 check failure 
OC DD 0239 ~ #SSS A cCv10 
0735'CF 01 FB 0238 CALLS #1,W"REG_CHECK 
0240 394 ;+ 
0240 395 ; 
bse8 396 ; test unaccessable ERROR = page 0 access 
40 397; 
0240 398 ;- 
0240 399 NEXT_TEST 
0240 
85¢6 STP9: 
0008'CF 09 0 0240 MOVL #9,W*CURRENT_TC 
00 DD 0245 PUSHL #0 
072B'CF 01 B 0247 CALLS #1,W*REG SAVE 
024C 400 SCREPRC_S 5 EnnoR 2 G"PRYAAD *gXv40 i try it 
0270 401 FAIL =CHECK S _ACCVIO 3 check failure 
OC DD 0270 PUSHE ” #SS$_ACCVIO 
0735'CF 01 FB bg 75 CALLS #1 »W*REG_ CHECK 
027 $0¢ 3+ 
0277 403; 
0277 404 ; test unaccessable ERROR = noaccess protect 
0277 «405 ; 
iad 406 ;- 
0277 9407 NEXT_TEST | 
0277 
0277 STP10 
0008'CF OA 0 0277 MOVL #10,W*CURRENS_TC 
80 DD 8 7C PUSHL @# 
072B'CF 1 43 CALLS #1,W*R AVE 
ose $08 SCREPRC_S ERROR = G PRVARD. Sxve2 le ee 
A? = 409 FAIL, CHECK SS$_ACCVIO : check failure 
OC DD OQ2A7 PUSHL BSS5-A ACCVIO 
O735'CF O01 FB Ag CALLS #1,W*REG_CHECK 
AE 410 ;+ 
AE 411; 
‘ tig ; test unaccessable PRVADR = page 0 access 
AE 414 ;- 
AE 415 NEXT_TEST 
AE STP11 


—E 3 
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y042000 CREPRC TESTS g- see =19 4 gh:5 :29 CUETP.SRCISATSSF18.MAR;1 ” 13, | 
0008° CF DO O2A MOVL —-#11,W*CURRENT_TC | 
dD 8 PUSHL @# 
0728'CF 1 FB 028 CALLS #1,W*RE 
BA 416 SCREPRC_S PRVADR = “W*PRVRND _SxV40 : try it 
DE 41 FAIL CHECK SS$_ACCV ; check failure 
o DD D PUSHL ~ a ACCVIO 
O735°crF 601 «FB OOSE CALLS #1,W™REG_ CHECK | 
rst ee , 
; ? Y ; test unaccessable PRVADR = noaccess protect 
E 4 § i- 
E 4 NEXT_TEST 
E STP12: 
0008' CF oc 00 E5 MOVL #12,W*CURRENT_TC 
0 oD EA PUSHL #0 
O72B'cF O01 FB EC CALLS #1,W*REG_SAVE 
Fl rtf SCREPRC_S retern = HA BRVAND _SXV42 i; try it 
8 158 425 FAIL TEnECE ACCVI 3; check failure 
oc 0D 15 ”~ #SS$_ACCVIO 
0O735'CF 01 FB 0317 CALS #1 URES. CHECK 
O31C 426 ;+ 
O31C 427; 
O31C 428 ; test unaccessable QUOTA = page 0 access 
0316 429; 
031C 430 ;- 
8 1 431 NEXT_TEST 
031C STP13 
0008 'CF 0D 0 O31C MOVL #13,W*CURRENT_TC 
00 DD 83 1 PUSHL #0 
072B'CF 01 0323 CALLS #1,W*RE 
0328 $38 SCREPRC_S QUOTA = G PRVARD. Siv60 ; try it 
4C 43 FAIL ~CHECK SS$_ACCV jo, 3; check failure 
0c DD 4C PUSHL #SS$_ACCVIO 
0735'CF 01 FB 4 CALLS #1,W*REG_CHECK 
bae $3 3+ 
035 435 ; 
0 ; $33 ; test unaccessable QUOTA = noaccess protect 
3 36 5 
0353 439 NEXT_TEST 
3 STP14 
0008 ' CF 3 dO 5 MOVL #14,W°CURRENT_TC 
0 DD 5 PUSHL 
072B'°CF 4 F 5A CALLS #1,W 
OFF CF ae. 5F 0440 MOVB pra’ ASTLR APRON, Sy 42 : set an initial quota in the first 
4 441 SCREPRC_S b OyOTA . ev cet 3; try 
: 442 FAIL =CHEEE sa s check failure 
oc oD “HSA 3% 
0735'CF 1 FB A CALS W REG. peck 
the 
: ree ; test unaccessable PRCNAM = page 0 access 


0008'CF 
072B'CF 


0735'CF 


0008' CF 
072B'CF 


0735'CF 


0008 ' CF 
072B'CF 


oss'cr ON 


0008" CF 
0728'CF 


o7sstcr 1 


oo 
—-ooO 


oo 
—o 
no 
woo 


oO 
wo 


NEXT_TEST 


STP15: 
MOVL #15,W*CURRENT_TC 

PUSHL # 

CALLS #1,W*REG SAVE 
PRC_S PRCNAM = W*PRVAND_SXV40 
CHECK SS$_ACCVIO 

PUSHL ~ #SS$_ACCVIO 
CALLS #1,W*REG_CHECK 


> test unaccessable PRCNAM = noaccess protect 
> NEXT_TEST 


MOVL  #16,W*CURRENT_TC 
PUSHL #0 


CALLS #1,W*REG SAVE 
SCREPRC_S PRCNAM = W*PRVAND_SxvV42 
FAIL_CHECK § 10 


4 S$_ACCV 
PUSHL ~ #SS$_ACCVIO 
CALLS #1,W*REG_CHECK 


; test PRCNAM = 16 Length string 
: NEXT_TEST 


MOVL #17 ,W*CURRENT_TC 


PUSHL 
CALLS #1,W*REG_ SAVE 
SCREPRC_S PRCNAM = W*NAME_CRE16 
FAIL_CHECK SS$_IVLOGNAM 
PUSHL ~ #SS$_IVLOGNAM 
CALLS #1,W"REG_CHECK 


> test S$S$_IVQUOTAL 
: NEXT_TEST 


MOVL #18,W*CURRENT_TC 
PUSHL # 


$ 

CHECK SS$_1VQUOTAL 
PUSHL uss IVQUOTAL 
CALLS #1,W™REG_CHECK 


F 3 
TEST ‘ -SEP- 142: 
ESTS CFAILING S. 197 Seen 1obe barseicy Loere Sacd 


= 
oor 

Oo 

o 


try it 
check failure 


try it 
check failure 


try it 
check failure 


try it 
check failure 


| G 
oe F18 M SERVICE TESTS CALLING S. ts at 4 


0008' CF 06 
0728'CF 1 
9 0017C BF 
0735°CF 1 
OOOB'CF 14 
00 

O72B°CF 01 


0735'CF 61 


0008'* CF 
072B'CF 


oo- 


0735°CF 01 


078 tr O14 


dO 
DD 
FB 


oo oo 


OoOoCooooooooooo 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
& 
4 
5 
5 
5 
5 
5 


Dd 

E 

E5 
E5 
Ee 
E3 
ee 
£3 
EA 
EC 
Fi 
Fi 
Fi 
Fi 
18 
18 
23 
46 
46 
4C¢ 
51 


04:38:29 


AX/VMS Macro V04-00 
SF18.MA 


ro 
~SEP=1984 UETP.SRCJSATSSF18.MAR; 1 


NEXT_TEST 
STP19: 
MOVL #19, W*CURRENT_TC 
PUSHL ° 
cA, ts #1,W*REG SAVE 
SCREPRC s Steg = uesisrig. ILLEGAL : try it 
FAIL TWEE S $_IVSTSFLG : check failure 
#358, IVSTSFLG 
atk: #1 ,W"REG_CHECK 


; test SS$_NOPRIV 


NEXT_TEST 
STP20 

MOVL a. »W*CURRENT_TC 
PUSHL 
CALLS #1,W*REG_ SAVE 

SCREPRC_S s STstL¢ = W*STSFLG1 ; try it 

FAIL =CHECK Ss S$_NOPRIV ; check failure 

PUSH L S$_NOPRIV 

CALLS Fh UFREG. CHECK 


> test SS$_DUPLNAM 


NEXT_TEST 
STP21 
MOVL eet oW*CURRENT_TC 
PUSHL 
CALLS #1,W*REG SAVE 
SCREPRC_S QuOTAcW*augTA CIST,- ; make a legal process 
PRCNAM = CREPRC,- 
IMAGE =v" RAGE NAME = 
PIDADR=W*PID 3 try _S with IMAGE param. 
FAIL_CHECK SS$_NOR 3; check success 
PUSHL ti $ NORMAL 
gh ts oat wW*REG ase 
SCREPRC § PRCNAN WANARE_C PRC i; try an illegal one 
FAIL_ CHECK 3 DUPLNAM : check failure 
#SS$_DUP 
CALLS. IWTREG CHECK 
SWAKE_S PIDADR = w*PID 3 cause process termination 


r=} 
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1 
1 
1 
1 
1 


-SBTTL SETPRV TESTS 


g : SSETPRV tests 
Yi test unaccessable PRVADR = page 0 access 
4 | ae 


SY 
TE 
E 
E 
: NEXT_TEST 
E STP22 
0008' CF 06 pe és at og2. oW*CURRENT_TC 
Goal“ FB 6 CALLS #1 W*REG SAVE 
0137'CF 038° CF DE SA 515 ROVAL #: SETPRV V,W*SERV_RAME 3 set service name 
1 316 SSETPR S PRVADR = W*PRUHND_SXV40 > try 
é 1 FAIL_C CHECK § ACCVIO ; check failure 
8 OD atts ¥ ACCVIO 
0735'CF 1 FB 4 cal #1,W"REG_CHECK 
5 3 i . 
3 4 t test unaccessable PRVADR = noaccess protect 
589 :- 
03 4 g NEXT_TEST 
5389 STP23 
0008 'CF 17 dO 0589 MOVL o »W*CURRENT_TC 
ovaoce OR BE cone 
059 38 SSETPRV_S NPRVADR = “WPRVAND. _SXV42 ; try it r 
5A6 5525 FAIL_CHECK SS$_ACCVIO : check the failure 
0c DD 5A6 PU #SS$_ACCVIO 
O735'CF O01 FB O5A8 CALLS #1,W*REG_CHECK 
aap aap i 
aA ; 8 > test uneccessable PRVPRV = page 0 access 
SAD 0 :- 
ar 1 NEXT_TEST 
SAD STP24: 
0008'CF 8 + a: i cia oW*CURRENT_TC 
072B'CF gt Fb 58 CALLS #1,W*REG SAVE 
589 338 SSETPRV_S PRVPRV = ‘U*PRURND. Sxv40 3 try it 
SCA FAIL PCHECK SS$_ accy 0. 3; check failure 
oc OD SCA PUSHL ~ #58. VIO 
0735'CF 1 FB SCC CALLS @#@ UPREG. CHECK 
ab aag i 
20! § } test unaccessable PRVPRV = read-only psect 
501 :- 
0! § NEXT_TEST 
5D1 STP25 


oe 
SATS SYSTEM SERVICE TESTS (FAILING S. 16-SEP-1984 AX/VMS # v04-00 Pa 17 
TPRV TE g- fp 1382 Ne $8: 4 UETP. SRCo SATSS F18.MAR;1 ad (2) 
0008‘ CF 1 dO D1 pov. #25,W*CURRENT_TC 
8 0D be PUSH 5 
072B'CF fa D CALL #1,W*REG_SAVE 
DO ¢ SSETPRV_S Payeny z “W-PRURND. SxV41 ; try it 
E 4 FAIL. CHECK ee WACCV o. ; check failure 
of DD E eM VIO 
0735'CF fe : os <i ch Wire UPREG. CHECK 
FS 58 
SF 
SF ; 
ef ig :- 
. NEXT_TEST 
ef STP26: 
OO08'CF 1A 0 OSF movi. . 6,W*CURRENT_TC 
00 DD OSFA PUSHL 
O72B'CF 01 B OSFC CAL LS i, W*REG_SAVE 
601 3¢8 $s SETPRV_S PRVPRV = “U-PRURIND. Sxv42 3 try it 
ols 49 FRILTCWECK SS$_ACCVIO ; check failure 
OC DD 061 PUSHL ~ #SS$_ACCVIO 
O735'CF O01 FB 0614 CALLS #1,W*"REG_CHECK 


rf: : test unaccessable PRVPRV = noaccess protect 


SL <n 


> 3 
TSSF1 - SATS SYSTEM SERVICE TESTS (FAILING S$. 16-SEP-1984 01:42: AX/VMS Macro v04-00 Pa 18 
Sou e800" UNEINS reeTé : ae et 3:53:34 UETP.SRCJSATSSF18.MAR;1 - (3) 
-SBTTL UNWIND TESTS | 
1 ; 
! ¢ ; SUNWIND tests | 
61 : ; test SS$_NOSIGNAL 
$1 . | 
e13 § : NEXT_TEST | 
619 STP27: | 
0008 'CF 1 +4 31? th og? CURRENT TC 
pree' et gf FS 06 6 CALLS #1 ,W*REG SAVE 
0137'CF SF°CF 6D 6 60 MOVAL W*UNWIND,W*“SERV_RAME ; set service name 
O143'CF 01 DO 062¢ 561 MOVL #1,W*DEPTH t set the depth 
631 6¢ SUNWIND_S DEPADR = W*DEPTH t try it 
09090900 BF pp (ae TEL CME ee OELe woSI GNA intact 
0735'CF i FB 0644 CALLS #1,W*REG_CHECK 
BS ies 
649 566 : test SSS$_INSFRAME 
sae 
649 569 * NEXT_TEST 
649 STP28 
0008' CF ic v0 649 MOVE #28, W*CURRENT TC 
072B'CF 01 FB €30 CALLS #1,W*REG_SAVE 
143°CF D6 065 570 INCL W*DEPTH 3 set the unwind depth 
0147°CF SE 00 0659 571 MOVL SP ,W*WORK ; remember the stack pointer 
62°AF 00 FB Bese 378 108: CALLS #0,8°10$ 3 put a call frame on the stack 
6D 6D'AF 000 o66t 378 hOVAL B«205 (FP) : set the handler address 
OC AE D4 0668 6 CLRL SFSL_SAVE_FP(SP) ; put a stop in the stack unwind cha 
BF 738 78 208 CHMU #0 3; cause an exception 
7 WORD “M<R2> 
52 04 AC 0050 est 0 MOVL B“CHFSL_SIGARGLST(AP) ,R2 ; get signal array address a} 
orzorcr ROB Bes SEAM BP nee save : Saves eprandpstet =” i 
67A § SUNWIND_S DEPADR™= W*DEPTH,NEWPC = B*30$'; do it $3 
oc BD D4 0688 4 CLARL @SFSL_SAVE_FP(FP) ; disable the handler for error msg 
SE 0147°CF DO 06 5 MOVL w*WwORR, SP 3; reset the stack pointer 
50 SE 00 069 256 MOVL SP,FP 3 reset the FP 
gooree ar on FALCON sae | Shack Falun 
Mata 01 FB 06 CALLS A URES. CHEEK 
69E 8 30$: 
at 
69 31 > test SS$_UNWINDING 
69E 38 i- 73 
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69E 594 NEXT_TEST 
69E 
9E STP29: 
QOOO8'CF 1D 43 A pov alata 
072B'CF fe A Gatke #1 ,W°REG_SAVE 
014 Cr D 6AA 95 DECL “DEPTH ; set to a legal dept 
B2'AF 0 FB Q6A 38 CALLS #0. B*10$ ; put a call frame + * stack 
68 97 10$: 
0000 068 38 -WORD 0 
6D BA'AF DE 06B 9 MOVAL ®8*20$,(FP) 3 set the handler address 
00 BF 0688 600 CHMU #0 i; cause an exception 
6BA 601 20S: 
0004 O6BA 6 ¢ «WORD “M<R2> 
52 04 AC DO 068 6 MOVL CHFSL_SIGARGLST(AP) ,R2 $ get the signal array address 
00 dD O06C 604 PUSHL a9 ; push a dummy parameter 
O72B'CF O01 FB O6C 605 CALLS AVE ; save a reg snapshot 
6C? 606 SUNWIND_S fire, - W“DEPTH,NEWPC = B°30$'; do it 
04 A2 00000920 8F 01 0605 607 CMPL UNWIND ,B*CHF SL _SIG_NAME(R2) ; are we een 
11 13 O6DD 608 BEQL : br if y 
OC BD D4 O6DF 609 CLRL seri SAVE_FP(FP) 3 disable. the handler 
red} 610 FAIL =CHECE sare anal i check failure 
01 DD O6E ante et 
O735'CF 01 FB O6E4 a a SURE G_CHECK 
OC BD CE AF DE O6E9 611 MOVAL * $, as $i W SAVES FPCFP) 3; enable the handler 
2 bee ol¢ 158 BRB 3 continue in common 
OC BD D4 Ost 614 CLRL @SFSL_SAVE_FP(FP) ; disable the hardler 
6F 615 FAIL = CHECK SSS_UNWINDING ; check failure 
99 00928 8F DD ve PUSHL #SS$_UNWINDING 
0735'CF 01 FB O6F CALLS #1,WFR REG_CHECK 
C BD B9 AF DE 708 618 178 MOVAL B* $.asFsi_ SAVE_ “FPC(FP) 3; enable the handler 
04 Q7 618 RET : giver heck 
704 619 30S: 
O70, eo 
be 6 § ; Testing SSS_ACCVIG will not be done because of the apatite results 
g ri i 3 that can occur from intentionally corrupting the STACK 
704 625 :- 
704 626 TEST_END ; thats all folks 
0050'CF 0D 704 PUSHL W*TMD_ADDR 
seaedt DD 708 PUSHL W*TMN~ ADDR 
2 odd 070C PUSHL #2 
0048'CF DD 07 PUSHL W*MOD_MSG_CODE 
00000 ' GF A F 71 CALLS #$$117G*LTBSSIGNAL 
0048'CF 01 1¢ Sar F 71 INSV #1 ,#STS$V_INHIB_ MSG,#1,W*MOD_MSG_CODE 
0048'CF DD ast PUSHL W*MOD_MSG CODE 
00000000'GF 01 FB 0724 CALLS #1 G SY SSEXiT 


| 
— | 
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728 5 3 -SBTTL REG_SAVE 
728 j++ 
728 Q ; FUNCTIONAL DESCRIPTION: 
, : ? 13 Subroutine to save R2-R11 in the register save location. | 
728 g : CALLING SEQUENCE: | 
728 4; PU ; save a dummy parameter 
4 : ? i CALLS #1,W*REG_SAVE ; save R2=-R11 
728 6 5 > INPUT PARAMETERS: 
4 : 6 8 3 NONE 
728 826 + OUTPUT PARAMETERS: 
72B 641 NONE 
728 org 3 
he 
728 645 REG_SAVE: 
OFFC 728 966 WOR “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
OOOC'CF 14 AD 28 28 07 D 647 MOVCS #4210,*X14(FP) W*REG_SAVE_AREA ; seve the registers in the program 
oF 3 649 a .SBTTL REG_CHECK 
0735 651 : FUNCTIONAL DESCRIPTION: 
0735 $26 ; Subroutine to test RO & R2-R11 for pro er content after a service 
Ore 653 ; execution. A snapshot is taken by the REG_SAVE routine at the 
0735 654; beginning of each step and this routine is executed after the 
Bree $33 ; services have been executed. 
0735 657 : CALLING SEQUENCE: 
0735 658; PUSHL #SS$_XXXXXX ; push expected RO contents 
fi ; 023 ; CALLS #1,W*REG_CHECK ; execute this routine 
07 ; 661 : INPUT PARAMETERS: 
8 : 98 3 expected RO contents on the stack 
0735 664 : OUTPUT PARAMETERS: 
fi : 202 : possible error messages printed using SPUTMSG 
4 a + oes 
232 669 REG_CHECK: 
OFFC 7 ; 670 eWORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> 
50 O4 AC D1 OF 671 CMPL 4(AP) ,RO ; is this the right fail code? 
of 13 07 ore BEQL 10$ 3; br if yes 
5 DD 0730 67 PUSHL RO 3; push received data 
04 AC OD OQO73F 674 PUSHL 4(AP) 3; push expected data 
OOES'CF OF re 675 PUSHAL W*EXP ; push the string variable 
O77D'CF O03 FB Se e78 108 ALLS #3,W*PRINT_FAIL ; print the error message 
OO0C CF 14 AD 23 9 738 978 . cores #4210,°X14(FP) ,W*REG_SAVE_AREA ; check all but RO 
3 br elke 
56 53 0000 yoc* : c3 734 oa sve oere SAVE _AREA,R3,R6 ; calculate the register number 
00D3'CF 6 ai re 6 § ADDBS #*2,R6,W*REGNUM ; pot it in the string 
1 CA 0765 6 BICL #3,R{ ; backup to register boundry 
3 CA 0768 684 BICL #3,R3 
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OOD3'CF DD 0768 685 PUSHL W*REGNUM 3 push register number 
g DD rf 6 § PUSHL Ri} 5 bush received data 
: DP Q7 6 PUSHL (R35) i; push expected data 
OOC1'CF DF 077 6 8 PUSHAL W*REG 3 set string pntr param. 
O77D'CF 04 FB Q77 68 CALLS #4,W*PRINT_FAIL ; print the error message 
77C =. 690-208: 
04 O77C 691 RET 
77D O36 -SBTTL PRINT_FAIL 
77D~=—s 69 i+ 
77D) «= 694 : FUNCTIONAL DESCRIPTION: 
ep 932 3 Subroutine to report failures using $PUTMSG 
a $99 3; CALLING SEQUENCE: 
77D 038 ; Mode #1 PUSHL EXPECTED Mode #2 PUSHL REG _NUMBER 
077D 699 ; USHL RECEIVED PUSHL EXPECTED 
077D 700; FUSHAL ,cie Vv PUSHL RECEIVED 
077D 701; CALLS #3,W*PRINT_FAIL PUSHAL STRING_VAR 
077D at) § CALLS #4,W*PRINT_FAIL 
077D 703; 
077D 704 ; INPUT PARAMETERS: 
077D 705; Listed above 
077D 706; 
077D 707 ; OUTPUT PARAMETERS: 
077D 708; an error message is printed using SPUTMSG 
077D 709 ; 
077D 710 ;-- 
077D 711 
0770 ay: PRINT_FAIL: 
003¢ O077D 71 oW nit. R3,R4,R5> 
077F 714 $FAO_S w*Csi W*MESSAGEL ,W°MSGL ATEST -MOD NAME ,W*SERV_NAME ,W*CURRENT_TC 
O7A0 715 PUINSG | <HUETPS _TEXT, #1, #MESSAGEL> sprint the messa ge 
064 6C 91 QO7B5 716 CMPB (AP) #47 ; is he . register message? 
21 13 0788 717 BEQL 1 br yes 
6788 718 SFAO_S W*CS2,W*MESSAGEL ,W*MSGL,4(AP), BAP), GtAP 12 (AP) 
ma 1 8708 4h 108 BRB 20$ ; goto output message 
1444 13 208 SFAO_S W*CS3,W*MESSAGEL,W*MSGL ,4(AP),16(AP) ,8(AP) ,4(AP), 16(AP) ,12 (AP) 
ttt 7 : PUTMSG <#UETPS Lif #1 ,AMESSAGEL> ; print the message > 
OOSO'CF OO2A'CF DE 0815 724 MOVAL W*TEST_MOD_FAIL.W*TMD_ADDR ; Set failure message address 
0048'CF 03 00 02 ty bass 2 Iusy #ERROR, #0,83,W* hoo _MSG_CODE 3 set severity code 
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.SBTTL MOD_MSG_PRINT 
MOD_MSG_PRINT: 


REAR R EEE RERAEAAATREEEAREAEEEREEE EERE Eee 


of * 
; * PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES * 
;s ® (USING THE PUTMSG MACRO). * 
: * 
PE TITIIITISITITIITITIOTITITLITITTILETTITETTT TTT TTT TTT TTT Teer ete 


PUTMSG <wW*MOD_MSG_CODE,#2,W*TMN_ADDR,W*TMD_ADDR> ; PRINT MSG 
RSB 7... AND RETURN TO CALLER 

Q .SBTTL CHMRTN 

CHMRTN: 


RRR E EEE EAE EERE EEA EERE REAR AEA EAAEAEREERE 


CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER  * 
. A CMKRNL, CMEXEC, OR CMSUP SYSTEM SERVICE IS ISSUED . 
‘ BY THE MODE MACRO ('TO’ OPTION). IT MERELY DOES * 
. A JUMP INDIRECT ON A FIELD SET UP BY MODE. IT HAS * 
. THE EFFECT OF RETURNING TO THE END OF THE MODE . 
® ® 
® * 
® a 


® 


BEEPS PWN 


SQLQVqQ_VQN NNN 
AU ENN OOONOUE WN -OOo 


DAVIDA 


MACRO EXPANSION. 


LARA ASASAAARASALALELAALESLALEL ELSE ESE SEE TEE E CECE Tce cece cece ceca as 


«WORD 0 ; ENTRY MASK 
JMP @CHM_CONT ; RETURN TO MODE MACRO IN NEW MODE 


0000 
17 
; * RET INSTR WILL BE ISSUED IN EXPANSION OF "MODE FROM, ...." MACRO 


0000005D ‘FF 


CONAULSWN—OOo~ 


SSN NNN 


w 


- END SATSSF18 
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SATSSF18 
Symbol table 


STP9 
STS$V_INHIB_MSG 
erates ILLEGAL 
SYSSCREPRC 
SYSSEXIT 


TPI 
UETPS_SATSMS 
UETPS~TEXT 
UNW 


UNWIND 
UNWIND$_DEPADR 
UNWIND$~NARGS 
UNW INDS~NEWPC 
WARNING 
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SATSSF18 
Psect synopsis 


SAT 
v04 


erect eee enw enw ece +} 


PSECT _name Allocation PSECT No. Attributes 

> 000000 ( 8.) 0 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 44 0 ( -) O1¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA 0 1 ( $1.) § ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
RWDATA ses 8b ( 331.) 03 ¢ -) NOPIC USR CCN REL LCL NOSHR NOEXE' RD WRT NOVEC LONG 
SATS_ACCVIO_1 8 88 ( 15-3 4 ( 4.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
SATS acevio. “2 000 ( 12.) 5 ¢( 5.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
SATSSF1 0000084 ( 2114.) 6 ( 6.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 

Pewee vre cre wen eecae eececeecen} 
: Performance indicators H 

Phase Page faults CPU Time 

Initialization 7 00:00:00.09 99:00:00.3 

Command processing 138 bs Se St oS SE 0 

Pass 1 403 00:00:15.45 00:00:36.5 

Synbol table sort 0 00:00:01.41 ses -68 

Pass 2 236 BF ae ba ee 0:00:09.78 

Symbol table output 2 0:00:00.16 00:00:00.26 
Psect synopsis output 6 00:00:00.04 00:00:00.11 

Cross-reference output 2 bs Se 88: 88 +28 -00 
Assembler run totals 84 0:00:21.54 0:00:52.71 


The working set Limit was 900 pages. 
97103 bytes (190 pages) of virtual memory were used to buffer the intermediate cod 

There were 50 pages of symbol table space allocated to hold 939 non-local and 12 [local symbols. 

759 source Lines were read in Pass 1, producing object records in Pass 2. 

48 pages of virtual memory were used to define 4 macros. 


Macro Library name 


“$sstoue: ae Ata WA A 1 “19 
SYSLI TBISTARLET ALB; 2 9 
Tete (all Libraries) 9 


1154 GETS were required to define 39 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SATSSF 18/0BJ=0BJ$:SATSSF18 MSRC$:SATSSF 18/UPDATE=(ENHS$: SATSSF 18) +EXECMLS$/LIB+LIB$:UETP/LIB 
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